home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 501-525 / disk_503 / pcq / pcq12a.lzh / Examples / Extern2.p < prev    next >
Text File  |  1990-07-18  |  539b  |  21 lines
  1. External;
  2.  
  3. {
  4.     Extern2.p
  5.  
  6.     This is the external part of Extern1.p, which demonstrates
  7. the external file mechanism of PCQ Pascal.  Be sure to read Extern1.p,
  8. which has the information about how to compile and link the program.
  9.  
  10.     The following procedure is exported by this file.  Meanwhile
  11. Extern1.p tries to import WriteMessage.  When the linker gets a hold
  12. of this amicable arrangement it will resolve their needs and hopefully
  13. all the files will be satisfied.
  14. }
  15.  
  16. Procedure WriteMessage;
  17. begin
  18.     Writeln('From the External File');
  19. end;
  20.  
  21.